home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 1.toast / Sample Code / Archive / Graphics / QuickDraw GX / IW-Half-Dither / source / ChooserSupport.a next >
Encoding:
Text File  |  2000-09-28  |  1.7 KB  |  62 lines  |  [TEXT/MPS ]
  1. ;  ------------------------------------------------------------------------------
  2. ;
  3. ;    FILENAME
  4. ;        ChooserSupport.a
  5. ;
  6. ;    DESCRIPTION
  7. ;        Contains the code to form the first part of the Chooser 'PACK' for
  8. ;        this driver.
  9. ;
  10. ;    COPYRIGHT
  11. ;        Copyright © Apple Computer, Inc. 1992-1994
  12. ;        All rights reserved. 
  13. ;
  14. ;    12/20/93        dmh                Sync'd with the shipping 1.0b3 GX driver.
  15. ;
  16. ;--------------------------------------------------------------------------------
  17.  
  18.     STRING    ASIS
  19.     CASE OBJ
  20.  
  21. kAppleTalkDevice        EQU    $80000000
  22. kIsPAPDevice            EQU $40000000
  23. kIsPostScriptDevice        EQU $20000000
  24. kMultiSelect            EQU    $10000000
  25. kLeftButton                EQU    $08000000
  26. kRightButton            EQU    $04000000
  27. kNoSavedZone            EQU $02000000
  28. kActualZoneNames        EQU    $01000000
  29. kNoIntlChars            EQU    $00800000
  30. kEvenUpName                EQU    $00400000
  31. kLengthOnRename            EQU    $00200000
  32. kUsesOnAndOff            EQU    $00100000
  33. kNoSetSelfSend            EQU    $00080000
  34. kUnused18                EQU    $00040000
  35. kAcceptsInit            EQU    $00020000
  36. kAcceptsNewSel            EQU $00010000
  37. kAcceptsFillList        EQU $00008000
  38. kAcceptsGetSel            EQU    $00004000
  39. kAcceptsSelect            EQU $00002000
  40. kAcceptsDeselect        EQU $00001000
  41. kAcceptsTerminate        EQU    $00000800
  42.  
  43.     IMPORT DEVICE                                ; from ChooserSupport.c
  44. EntryPoint    PROC EXPORT
  45.         BRA.S    code                            ; branch to our actual code
  46.         DC.W    169                                ; device ID
  47.         DC.L    'PACK'                            ; device Type
  48.         DC.W    $F000                            ; master ID for resources (-4096)
  49.         DC.W    2                                ; version
  50.         DC.L    kLeftButton+kUsesOnAndOff+kAcceptsInit+kAcceptsTerminate    ; flags
  51.         
  52. data:
  53.     ds.b    38                ; sizeof(PACKglobalRec)
  54. code:
  55.     MOVE.L    (a7)+,a0        ; move return address into a0
  56.     PEA        data            ; add a pointer to our global data onto stack as last parameter
  57.     MOVE.L    a0,-(a7)        ; put the return address back on the stack
  58.     jmp        DEVICE            ; jump to it, so when it does the return, it goes to OUR caller
  59.     rts
  60.  
  61.     END
  62.